








DE ALGEMENE OPLOSSING DER POLYOMINO PUZZEL door Kik Velt <80 letters 

Een bekende puzzel is de volgènde: neen 5 vierkantjes, en voeg deze tezamen 
tot 1 geheel. Dat kan op verschillende aanieren. Wy kunnen ze allemaal achter 
elkaar zetten, dan krygen wy een ’I’. Wy kunnen er een hoekje in maken, dan 
wordt het een ’V’, enz. In totaal blykern op deze manier in het platte vlak 12 
verschillende figuren gemaakt te kunnen worden. (zie figuur ?). Aangezien een 
domino niets anders is dat-2 vierkantjes naast elkaar, zouden wy in een soort 
volksetygologie deze stukjes pentomino's kunnen noemen. 

De volgende opgave is! voeg deze.12 stukken van in totaal 60 vierkantjes samen 
tot een grote rechthoek van é by 10 (of eventueel 5 by 12 of 8 by 8 met een 
open 2x2 vierkantje in het midden, eri.) Wie dat gaat proberen zal wellicht al 
snel vertwyfeld vitroepen dat dat niet kan, of verbeten tot 3 uur ’s nachts 
bezig zyn! Toch is er een optossing, sterker nog, er zyn er zelfs 2239 van, en 
daar zyn spiegelingen en Gräaiingen nag niet eens by meegerekend. 

Na verloop van tyd zal de verbeten putzelaar dan ook wel wat vinden, misschien 
zelf enkele 100-den, maar om ze zelf allemaal by elkaar te krygen... Daar 
moeten we de komputer maar voor inschakelen. 

Trouwens, wy hoeven ons niet te beperken tot vlakke pentomino's. Wie maakt de 


platte hexomino's? (Deze puzzels zyn Bverigens ook de handel te verkrygen). Of 





wie gaat er met ruintetyke blokjes ätuiitot de Se dimensie? Óf waarom niet de 
4e dimensie? ee te zie | E 

Hoe moet de komputer het aanpakken deoptossingen te vinden? Wy zullen niet 
het programma geven, dat maakt de puztelaar maar zelf, doch wel de aanwyzingen. 
Het idee is als volgt: Wy nemen het eerste stukje en kyken of het: in een 
bepaalde hoek past. Zo nee, dan gaat-het er uit en pakken we het 2e, zo ja, dan 
pakken we het volgende stukje en leggen:-dat er naast. Ook hier stellen we weer 
de vraag of het past of niet, zo née dan gaat het eruit, zo ja dan kunnen we 


door met de 3e. Als we op die mantee'byide 12e pentomino zyn aangekomen hebben 


we een oplossing. on ne 

Voorbeeld, de stukjes zyn betetterd: vanf t/a L: 

A Wy passen stukje A in, en helaas in dit voorbeeld, het past niet. 
B. Wy proberen stukje B, hoera:het past. 

B,‚,â Voor het 2e stukje starten vf:veer vooraan by -Â, maar helaas. 

B‚G Dan maar C proberen, want -Bfe Betuurlyk al bezet, hoera, sukses. 


B‚C,A Voor het 3e stukje, beginnestiy.veer vooraan. Het past echter niet. — 
B,C,D Volgende proberen, ook een afsser, en dito EFGHIJK, dus ook: 

B‚C,L Duidelyke konklusje: koabdinakiefB,C deugt niet! . 

B‚D Terug naar het 2eostukje, proëder daar de volgende. Past. 

B‚D,A Dan weer naar het-3e stukje: 





ar -voor af aan-te beginnen... 


Op deze manier gaan wy verder:tate 
eenvoudige methode van ä 


EE 


























oplossingen zullen passeren, aaâr aeestal ook dat wy er byzonder lang over 
zullen doen. Eenvoudig maar langdurig: koaputer werk dus. 
Overigens is de praktyk in werkelykheid nog iets ingewikkelder. De stukjes 





kunnen namelyk verschillende orientatieëhebben, die wy ook allemaal zullen 


moeten passeren. 


_ Wy zullen nu de stappen.-beschryven die:nedig zyn voor de algemene oplossing 
0 _ van de veel stukkige, meer dimensionale gelyosmino puzzel, en daarby het 
voorbeeld geven van de 12 stukkige platie-pentomine puzzel. Omdat sommige 

- komputers de indices van hun matrices:by Ô laten beginnen en andere by Î, zal * 
ä hiervoor de aanduiding 1 worden gebruikt: Dus index origine 1:;=0 of Ii=l (G= 
RL “is de toekennnings opdracht, LET in:BASIC). Verder als een matrix met bepaalde 


afmeting, byvoorbeeld A, gedefinieerd moet worden, geldt by 1=0 dat die index 
van O tot A loopt, maar by Ist van 1 t/m A. 


=== Bepaal hoeveel dimensies:-de puzzel aget bevatten. Voor de vlakke puzzel 





geldt AD:=2, voor de ruintelyke AD:23,-en wie nog verder wil kan AD:=4 nemen. 


=-- Definieer een-AD dimensionate matrix waarby elke cel een subblokje van de 
puzzel voorstelt. De afnet ingen van elke dimensie noemen wy: Al, A2, A3,... 
AAD, of in het geval van de 2-dimensionale: AX en AY,‚ die de waarden 10 en 6 
hebben. In BASIC: DIM R(AX,AY) va se ve, ia 


A 





=== Vul deze matrix met nullen, of indien de stard van bepaalde stukken van te 
voren gedefinieerd is (byvoorbeeld het vierkantje in de 8x8 oplossing) deze 


overeenkomende plaatsen met-=-t; 





Voorbeeld 10x6 oplossing: — We 4 

ooo ooo oo oo 

000 000 0 0 0-0 

oo 0 0 ooo ooo» 

oo 0 0 0 0 0 0 0 0 5 
ooo oo 00e oo o- E 
ooo ooo 0 0 0 0 f 

Of de 8x8 oplossing met miGtenvierkant: — | d 





‚_o0oo0o0oooo 0 
000000 0 0 Ee 
ES 0 0 0 0 0 0 0 0 
B 0 0 0-1-1 0 0 0 
| 0 0 O-1-1t 0 0 0 ‚ 
ooo 0 oo 0 0 
ooo ooo 0 o 
0 ooo oo 0 0 




















hens. iede 





lek en vader Pedersen nnn 


Naer 


De bedoeling is dat de nullen in deze matrices door het programma door cyfers 
worden vervangen, cyfers die het in te passen stuknummer aangeven. Als 
voorbeeld kan gelden tcyfers voor de duidelykheid door letters vervangen): 
YYYYWEENVYyY 


INYWUEZPPPVYV 
INWWEERPPKXV 
INNTTTEFXKXK 
IUNUTEFEFX 
TUUUTEFLLL 


=== Bepaal hoeveel polyomino’s er eigenlyk zyn, noem dit het aantal stukken AS. 


Voorbeeld: AS:=iE 


=== Bepaal in maximaal hoeveel verschillende orientaties de stukken geplaatst 
kunnen worden, Noem dit het aantal orientaties AO. Voorbeeld: A0:=8, In het 
algemeen kan men zeggen: AO:=ÂD!$4, dus voor de ruimtelyke (AD=3) polyomino: 
AGG =24 


=== Bepaal uit hoeveel blokjes de grootste polyomino bestaat (kyk naar zyn 
naam!) en noem dit het aantal blokjes AB. Trek er Ì van af. Voorbeeld 
pentomino: âB;=4 

- 
=== Definieer een 4 dimensionale matrix: S(AS5,A0,AB,AD). Hierby bevat elk 
element een bepaalde koordinaat van een bepaald blokje van een bepaalde 
koordinaat van een bepaald stuk. Merk op dat dit ASXAO#ABXAD geheugen plaatsen 
vraagt, in ons voorbeeld 768, maar in het 3 dimensionale geval 8352, Om 
geheugenruimte uit te sparen is het mogelyk met een 3 dimensionale matrix te 
werken, waarby de AD elementen van de laatste dimensie tot een enkel getal 
gekadeerd worden. De waarden van de afzonderlyke elementen liggen namelyk 
tussen -AB en +AB in. De koordinaten 2,-3 worden dan b.v. tot het getal 27, en 


„1,0 tot 90. 


Lan] 


=== Yul deze matrix met nullen, en zet daarna voor elk stuk, voor elke 
orientatie, en voor elk blokje de koordinaten in. Indien door symmetrieen het 
maximale aantal orientaties niet gehaald wordt, blyven de bewuste elementen op 
Ö staan. Werken wy met polyomino's van verschillende formaten door elkaar, dan 
Elyven by de kleinere evenzo de laatste koordinaten op O staan. 

(N.B, Bit vullen kan met de hand geschieden (DATA) of met een apart daarvoor 
geschreven hulpprogramma, Wie zet daar zyn tanden in?) 

Wy moeten averigens goed in de gaten houden hoe wy de puzzel opbouwen. Het 
handigste is natuurlyk de volgorde te nemen waarin R gedefinieerd is. Laten wy 


zeggen: eerst van links naar rechts en dan van boven naar beneden, net zoals 


het televisiebeeld. En in de 3e dimensie: dan van voren naar achteren. 
Dat betekent dat als op een gegeven moment een stuk wordt ingepast, wy zeker 
weten alle punten links en boven er van reeds gevuld te hebben, Dat bepaalt de 


definitie der stukken. Het blokje dat zo bovenaan mogelyk zit, en als dat er 


dl 


meerdere 1yn, 16 links mogelyk, dat is het nulpunt. Merk dus op dat dat net 


omgekeerd is aan de volgorde waarin R gevuld wordt. 


re 


Voorbeeld, het 2 blokje, Aantal orientaties: 4. 


Dr 
Et Et 


7 


€ 
Eel dt 


[4 


Eed mn rn 
Kd de ee 


LI mi 


ki 
t 

La 
ra 


XY koordinaten, nulpunt zo bovenaan mogelyk en dan zo links mogelyk: 


00 10 00 10 00 00 
11 Oi Oi 11 21 81 91 Oi 
EEE pe 02 22 82 


Hierkby geldt de 9 dus als -i en de 8 als -2, enz. Wy nemen dus de 3 
dimensionale S(A5,A0,AB) omdat de AD elementen gekodeerd zyn. 5(/2’,,) wordt 
dus als volgt gevuld (lege index in S houdt in alle argumenten van deze index). 
10 It 1E 22 
10 Ol O2 #2 AB=4, dus 4 kolommen 
Ot fl El 2E AO=8, dus 8 ryen 
BE 81 91 
00 00 00 00 
00 00 00 00 
00 00 Go 00 
00 00 50 00 


Pt 


Len] 
_e 


Aangezien alle stukken koordinaat 00 bevatten, hoeft deze niet opgeborgen te 


worden. Niet gebruikte orientaties blyven op 00 staan. 


=== Definieer een 2 dimensionale volgorde matrix: V(AS,2). Voor elk stuk worden 
het volgnummer en de orientatie opgeborgen. Deze matrix en volgende hoeven niet 


geinitialiseerd te worden. 


„== Definieer 2 dimensionale hulpmatrices: H(AB,AD) en W(AS,AD). Deze laatste 


kan vervallen indien wy met een stapel werken zoals in FORTH het geval is, 


„=== Definieer variabelen: Fi=l-i, Xt=l, Yi=l, T:'=0 
=== (Optionele stap) Vergelyk het aantal elementen met de waarde 0 in R met het 
totaal van het aantal blakjes van alle stukken by elkaar. In principe moet dit 


gelyk zyn. Zyn er meer nulten in R‚ dan zullen wy de puzzel als het ware met 





anatadeniset.. cadensen ahead 





{ 


€ 


C 


ontbrekende stukjes oplossen, Zyn er minder nullen in R dan zullen wy nooit een 


oplossing vinden! 
=== Voer het volgende re-entrante programma uit; 


Fia=F+i 
Voor ViP,Ij:=l t/m AS+I-1 doe 
Vlag:=û 
Voor Ki=l tot F doe 
Als ViK,I)=V(F,I) dan Vlag:=1 [als I=F wordt deze regel overgeslagen!) 
Einde doe voor K 
Als Vlag=0 dan doe 
Voor V(F,I+ijs=I t/m AO+I-1 doe 
âls S(V(F,I},V(F,I+1),I)=0 dan doe 
VEF,I+l}:=Â0 L[forceer einde der lus) 
Einde dan doe, anders doe 
Vlag:=0 
Voor Ki=l t/m AB+I-i doe 
Dekodeer koordinaten dX,dY uit S(V(F,I),V(F,I+1),K) 
HIK, IJ) =X+tdÂ 
H(K,I+i) s=YtdY [alternatief via 4e dimensie in 51 
âls H(K,IJrAX+I-1 of H(K,IJSI of H(K,I+1)>AY+I-1l of 
H(K,I+1)SI of R(H(K,I),H(K,I+1))<>0 dan doe 


K:=ÂB [forceer einde lus] 
Einde als doe 
Einde doe voor K 
âls Vlag=0 dan doe 
Âls F=â5-1+1 dan doe 
Ti=Tt1 
Print de T-e oplossing in R (of die in V) uit 
Einde dan doe, anders doe 
RX, WY) GEVE, ID +1-I 
Voor Ki=l t/m AB+I-1 doe 
RCH(K, IJ ,H(K, I+1)) S=V(F, IJ +11 
Einde doe voor K 
Stapel X,Y of zet X,Y in W(F,I) en WEF,I+i) 
Zolang YSAY+I doe 
Zolang X<AX+I doe 
âls R(X,Y}=0 dan doe 


Herstart deze re-entrante routine 


bek Xi=AX _ L[forceer einde lus] 

















Y:=AY 
Einde als doe 
Xi=kti 
Einde zolang lus 
Xi=l 
Yi=Y+1 
Einde zolang lus 
Voor Ki=l t/m AX+I-1 doe 
Voor Yi=l t/m AY+I-1 doe 
Âls R(X,Y)=V(F,IJ+1-I dan Rik,Y):=0 
Einde doe voor Y 
Einde doe voor X 
Ontstapel X,Y of lees terug uit W(F,I) en W(F,I+1} 
Einde als doe 
Einde als doe 
Einde anders doe 
Einde doe vaar ViF,I+1} 
Einde als doe 
Einde doe vaar ViF,I) 


Fi=F-l 


Een vre-entrant programma is een subroutine die zichzelf aanroept. Dit is een 
ideaal middel tot iteraties, maar het komputersysteem moet wel voldoende stapel 
ruimte hebben! (Voor BASIC houdt dit in: we mogen niet te snel de mededeling 
krygen: GOSUB's/FOR-NEXT's NESTED TOO DEEP). 

Merk op dat wy met dit programma alle oplossingen krygen, ook oplossingen die 
mogelyk gelyk zyn aan een al eerder verkregen oplossing, maar dan net 
gespiegeld, Een eventuele extra test by de pentomino's is byvoorbeeld: zit het 
kruisje linksonder? 

Vaor het vitprinten van de oplossing kan het best matrix R gebruikt worden. 
Gaat het er echter om de oplossingen op beknopte te manier te bewaren, dan moet 
matrix V genomen worden. 

Het programma is vry langdurig. Wie de komputer ‘s nachts laat doordraaien zal 
merken dat de volgende ochtend misschien een oplossing gevonden is. 

Ey Stichting Mens & Wetenschap is een listing van een FORTH versie van het 


programma te verkrygen voor.... (FL 20,- 227) 


Re. mende staten erdee ze innatcante: Peidednanet sijn dcnhendei af -mrohearhdeetsn:: sjah pe chen anarteie stenen 


ER iks elden nd asana 
7 


lep) 
| 


LI RI ee EO OD AO Ee U en 


ben et ee ee ek 
En 


en 
cn 


(n 
®. 
Tt 


8! 
12 
13 
14 


SOR 


a 
DO DO Or U de UIP ee 


and 
ee 


_ 
LN | 


A and 
Ch ee U 


ma 
Ch OM MO od Oe Li CA PI te LI 


Èt 


RE 
U 
En 


ge 


olyaming' 
{ 
{ 


BE fp == 


BEGIN ... n 


# 81 


; BMATE { n 
“BUILDS D 


Ri & + £ 


ROT 100 # 
: RAFEL ( w 


Ees 


a 


m 
UP 


F 


n 


BE 4 DPB == 
‚ BIT? CC hulgf 
‘ NFAPFA { nfa --- pfa (naamveldadres --> programmaveldadres) 
‚ PFACFA { pfa --- cfa (programmaveldadres --> kodeveldadres) 
zj (at --- 
f IF „.-{doe als f €} 
END 
BEGIN ... n WHILE .… 
einde by WHILE zodra n=) 


: KODE (hk 1 
0û 


10 £ DUP FOO 
{ e 


10 £ 1000 
DECIMAL 


# 82 

{ polyonimo 
10 CONSTANT 
& CONSTANT 
ÂX AY BMAT2 
; RVUL AY G 
RVUL, FORGET 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


ede 


EO de OO HI PJ 


end 


zt 


byzondere definities } 


Ci 


a b --- aëb (logische AND ( 6 5 & . geeft 4 
a =komplement COM of NOT ( 3 _ „ geeft -4) 
‘tn == n thyte swap ( HEX 1234 >4 . geeft 3412) 


(& funktie per byte adres, ook wel C@) 


€} 


funktie per byte adres, ook wel G!} 


unktie, zet terminal in/uit grafische mode) 


ait 


(Argisdhe OR) ; 


0)... ELSE ...{doe als f=0).. THEN 


(eeuwige lus tussen BEGIN en END zolang n=0} 


REPEAT (eeuwige lus tussen BEGIN & REPEAT 


{ polyonimo programma 1, initialisaties } 
NAAM ——- (nm =--- adres ( eenheid byte } 


‚ Ek It -E & ALLOT DOES? 


‚ WMAT3 ( p q r NAAM ——- 
<BUILDS OVER *2 
SWAP DEWAP SWAP +R +R OVE 
tk et Dt 4 


8, 


ROT OVER @ # ROT + + 24+ ; ( indices van 0 tot AMAX } 


pgr == adres (eenheid woord } 
OVER + , £ £ 2 BEE DOES” 
R @ DUP 255 & R» ROT >é 255 & 


) C HEX 1 ai end pn 


W 
ROT 10 4 FO & ! SWAPF& !: 
ki) Lieve Mok 


0 & 1000 / SWAP 10 £ DUP FO00 & 1000 / SWAP 


programma 2, definities ) 


- EEEN Dead, 
vlakmatrix maximaal horizontaal ) &t Zfinitie weehbhaef 


AX 
AY 
RR 


{ 
{ 
{ 


Do AX 
RVUL 


AD 
AS 
AO 
âB 


{ 
{ 
{ 
{ 


AO AB WMAT3 SS 


‚ 55. A5 0 DO A0 
SPACE LOOP 


AS 2 BMAT2 
AB AD BMATE 


VV 
BH 


{ 
{ 


dito vertikaal ) 


ruimtevlak matrix } # voer 
0 DO 0 I J RR B! LOOP LOOP : | 
L 


1oveel dimensies, ook in RR } 
zoveel stukken } m wal 6. 
ioveel orientaties ( AD!'£4) 
zoveel subblokjes -1 ) 
{ stukken matrix } 
0 DO AB O DO K J I 55 @ RAFEL ROT . SWAP . 
CR LOOP CR-LOOP : 
volgorde matrix, kolommen: stuk, orientatie } 
hulp matrix } an 3 


« 


zj 


2 rs gemee , 
8s) 


vierkont mMtum 


Aks:Ay =8 
{328 AR B 
—l 34 RA B! 
-l43 AR Bi 
A b4 RR B! 





un 
5 


Ln 
a aeannd ep} ee ee je ee ed B 
te Ch 0 OU JO CN He LI PI te 5 CN on OF re CS MD CO ml De Cn CI PI ee CD 


eN 
Le] 


Je 
En OJ 


pes 
cn 


SOR 


DD Oe CM en LI ki rt Ch 


# 83 
{ polyonimo programma 3, print oplossing } terminal Antrale 
: KPRINT (_n === ( print + - ! TL enz hoekjes ) Glans : 
[ HEX 1 DUP DDUP 8 < IF 4 < IF 2 < IF go r 
1 £ IF 98 ELSE 96 THEN ELSE 3 < IF 95 ELSE 9A THEN THEN Bia 
ELSE 6 £ IF 5 < IF 97 ELSE 93 THEN ELSE gr. 
7 < IF 92 ELSE 0 THEN THEN THEN ELSE CG { IF A £ IF 4d 
3 < IF 94 ELSE 91 THEN ELSE B < IF 90 ELSE O THEN THEN 3u T 
ELSE E { IF D < IF 99 ELSE 0 THEN ELSE gs 
F { IF O ELSE 20 THEN THEN THEN THEN EMIT : 46 À 
0 CONSTANT X 0 CONSTANT Y _-1 CONSTANT F O0 CONSTANT T ee re 
LOMRR (XY --- R ( buiten bereik op =1 ) hek 
OVER QX IF DDROP -1 ELSE DUP 0í IF DDROP -1 ELSE Hd 
OVER AX £ IF DUP AY < IF RR B@ ELSE DDROP -1 THEN ELSE hk 
DDROP —i THEN THEN THEN : 
DECIMAL el 
# 84 
{ polyonimo programma 4, print oplossing ) 
: TPLOT ( tekent Z-dim plaatje op beeldscherm } 
[ HEX 1 “BIT7 AY GM -1 DO AX -1 DO pn 
1 IJ MRR I 1 i+ MRR DDUP = IF BLANK ELSE 99 THEN EMIT € Jaak stak allem #ij 
1 1+ J MRR I 1+ J 1+ MRR DDUP = >R DOVER = >R ROT = òR = Bo-krloms Temined 
2E Rè + 2k Rè + 2 Rè + KPRINT LOOP CR LOOP “BIT7 } edig. 


: NULVUL { vult 55 met Ö } 
AS 0 DO AO 0 DO AEB O DO O K J I SS ! LOOP LOOP LOOP : 
NULVUL FORGET NULVUL 
‚ STUKVUL {st s2 s3 s4 stuk oriens ==- { vul subblokken } 
4 0 DO ROT I DOVER ROT 55 ! LOOP DDROP : 


‚ MYSELF LATEST NFAPFA PFACFA , : IMMEDIATE 

: RR. AY 0 DO AX O DO IT J RR B® , LOOP CR LOOP : 

DECIMAL ==} 

# 85 

{ polyonimo programma 5, stukken definitie ) 

0 0 t KODE 0 1 1 KODE 0 0 2 KODE 0 -1 1 KODE 0 0 STUKVUL ( X ein 
0 0 1 KODE 0 0 2 KODE 0 O 3 KODE O0 O0 4 KODE 1 0 STUKVUL (1) 
0 1 0 KODE 0 2 Ö KODE 0 3 0 KODE 0 4 0 KODE i 1 STUKVUL 

0 0 1 KODE 0 1 1 KODE 0 2 1 KODE 0 #2 0 KODE 2 O0 STUKVUL f U } [EI 
0 0 1 KODE Q 1 0 KODE 0 2 0 KODE 0 2 1 KODE 2 1 STUKVUL 

0 1 0 KODE O 1 1 KODE O0 1 2 KODE O0 0 2 KODE , 2 2 STUKVUL 

0 1 0 KODE 0 O0 1 KODE 0 0'’2 KODE 0 1 2 KODE 2 3 STUKVUL 

0 1 O0 KODE 0 2 0 KODE O0 1 1 KODE 0 1 2 KODE 3 O0 STUKVUL ( T ) Er 
0 0 1 KODE 0 0 2 KODE 0 1 2 KODE 0 -1 2 KODE 3 1 STUKVUL 

0 0 1 KODE ò O0 £ KODE O 1 t KODE 0 2 1 KODE 3 2 STUKVUL 

G O 1 KODE O0 0 2 KODE 0 =-1 1 KODE 0 -2 1 KODE 3 3 STUKVUL 

0 O 1 KODE 6 O 2 KODE O0 1 O0 KODE 0 2 O KODE 4 O0 STUKVUL ( M ) L 
Ö 1 0 KODE 0 £ O KODE 0 2 1 KODE 0 2 2 KODE 4 1 STUKVUL 

G 0 1 KODE 0 O0 £ KODE O0 Ì £ KODE 0 2 2 KODE 4 7 STUKVUL 

0 0 Ì KODE 0 0 2 KODE 0 -1 2 KODE 0 -2 2 KODE 4 3 STUKVUL —-2 


Ta Met plat vlak zijn? Koïidinatin genoeg, da twa Vet hier maal ep O) 
doch, der vu al 3 Kord inatin te Nemen Kuumon we Lekt direkt de nuimtz im. 





tn 
Li} 


ee i 8 
et 3 SQ DO Oe CA Ee FA ee CD 
CD Ch EE Ch Ch CH MO 


pn 
Lan] 


Ee ee ek 
EN 


Lip) 
C3 
Ti 


nand 
tt OD 0 MO Je LN Es OI RI ee CD 


pe 
J 


á 


Ln nn send 
Cn de GJ 


tn 
® 
ee, 


ee k 
me CD 0 OI OO Ee LI A re ED 


ee 
Lin | 
OD a A MD MD B 


Ondas 
da CU 


15 


OE en dt 


DD Eh Ch 


Cn dt 


Re RR RR Ree Re Re) 


DD dE 


De 


co 


6 


polvonimo programma &, stukken definitie } 

Ö 1 KODE O0 1 1 KODE 0 1 2 KODE 0 2 2 KODE 5 0 STUKVUL { W ) Ih, 
0 1 KODE O -1 t KODE 0 -1 2 KODE 0 -2 2 KODE 5 1 STUKVUL 

1 G KODE 0 0 1 KODE O0 -1 1 KODE 0 -1 2 KODE 5 2 STUKVUL 

1 0 KODE Ô 1 i KODE 0 £ 1 KODE Ô 2 2 KODE 5 3 STUKVUL 
1 û KODE 0 1 1 KODE 0 1 2 KODE 0 2 2 „RODE & 0 STUKVUL ( £ } qL 
1 0 KODE 0 6 1 KODE 0 O0 2 KODE 0 -L 2 KODE & 1 STUKVUL 

0 f KODE 0 1 1 KODE 0 2 1 KODE 0 2 2 2 KODE & £ STUKVUL 

0 1 KODE 9 =1 1 KODE 0 -Z 1 KODE O0 -2 2 KODE & 3 STUKVUL 

0 Ì KODE 0 Ì 1 KODE 0 1 2 KODE 0 6 2 KODE 7 Ö STUKVUL ( P } 
0 1 KODE OQ -i 1 KODE 0 -1 #£ KODE 0 O0 2 KODE 7 í STUKVUL 

1 0 KODE 0 1 1 KODE 00 1 KODE 0 0 2 KODE 7 2 STUKVUL 

1 0 EODE 0 1 1 KODE 9 O0 1 KODE 0 1 2 KODE 7 3 STUKVUL 

i G KODE 0 0 1 KODE 0 1 1 KODE 0 2 1 KODE 7 4 STUKVUL 

1 0 KODE 0 1 1 KODE 6 O0 î KODE 0 -i 1 KODE 7 5 STUKVUL 

0 1 KODE O 1 t KODE O0 1 0 KODE 0 2 0 KODE 7 6 STUKVUL == 
g7 

polyonimo programma 7, stukken definitie } 

1 0 KODE 0 2 O0 KODE 0 2 1 KODE O0 1 1 KODE 7 7 STUKVUL 

0 1 KODE 0 0 2 KODE O0 0 3 KODE 0 1 3 KODE 8 O0 STUKVUL ( L 3 II 
0 1 KODE 0 O 2 KODE 0 0 3 KODE O0 -1t 3 KODE 8 1 STUKVYUL 

1 0 KODE 0 0 1 KODE O0 0 2 KODE 0 0 3 KODE 8 £ STUKVUL 

1 0 KODE O0 1 1 KODE O 1 2 KODE O0 t 3 KODE 8 3 STUKVUL 

0 1 KODE 0 1 1 KODE ö 2 t KODE 0 3 1 KODE 8 t STUKVUL 

0 i KODE 0 -t 1 KODE O0 -Z 1 KODE 0 -3 1 KODE 8 5 STUKVUL 

Ö 1 KODE 0 1 0 KODE 0 2 0 KODE 0 3 0 KODE B & STUKVUL 

1 0 KODE 0 2 0 KODE 0 3 0 KODE O0 3 1 KODE 8 7 STUKVUL 

0 1 KODE O0 1 1 KODE 0 1 2 KODE 0 2 1 KODE © O0 STUKVUL ( F } 
Ö 1 KODE Ó -1 1 KODE 0 -1 2 KODE 0 -2 t KODE 9% 1 STUKVUL 

1 1 KODE 0 0 1 KODE O0 -i tf KODE 0 -i 2 KODE 9 2 STUKVUL 

=Ì 1 KODE 0 0 1 KODE Ò 1 1 KODE 0 1 2 KODE 95 3 STUKVUL 

=Ì 1 KODE 0 0 Ì KODE O0 0 2 KODE O0 1 2 KODE 9 4 STUKVUL 

1 1 KODE 0 0 1 KODE 0 0 2 KODE 0 -1 2 KODE 9 5 STUKVUL indd 
88 

polyonimo programma 8, stukken definitie } 

1 0 KODE 0 1 1 KODE 0 2 1 KODE 0 1 2 KODE 9 & STUKVUL 

1 0 KODE 0 0 1 KODE O0 -i 1 KODE 0 0 2 KODE & 7 STUKVUL 

1 0 KODE 0 1 1 KODE 0 2 1 KODE 0 3 1 KODE 10 O STUKVUL { N ) 
1 0 KODE 0 0 1 KODE O -1 1 KODE 0 -2 1 KODE 10 1 STUKVUL 

1 0 KODE Ö 2 0 KODE 0 2 1 KODE 0 3 1 KODE 10 2 STUKVUL 

1 0 KODE O 2 0 KODE 0 O0 1 KODE 0 -i 1 KODE 10 3 STUKVUL 

0 1 KODE 0 0 2 KODE 0 -1 2 KODE 0 -1 3 KODE 10 4 STUKVUL 

0 1 KODE 0 0 2 KODE 0 1 2 KODE 0 1 3 KODE 10 5 STUKVUL 

0 1 KODE 0 1 1 KODE 0 1 2 KODE 0 1 3 KODE 10 & STUKVUL 

Ö 1 KODE 0 -í Í KODE 0 -1 2 KODE O0 -i 3 KODE 10 7 STUKVUL 

1 t KODE O 1 0 KODE O0 2 0 KODE 0 3 O0 KODE 11 O0 STUKVUL ( Y } 
1 0 KODE 0 £ O KODE 0 3 6 KODE 0 2 1 KODE ii tj STUKVUL 

1 1 KODE 0 0 1 KODE 0 -1 1.KODE 0 -2 1 KODE ii 2 STUKVUL 

„1 1 KODE 0 O0 1 KODE 0 1 í KODE 0 £ 1 KODE 11 3 STUKVUL 

0 1 KODE 0 0 £ KODE 0 0 3 KODE O0 1 2 KODE 11 4 STUKVUL En 
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{ palvonimo programma 9, stukken definitie } 

0 0 tf KODE 0 0 Z KODE 0 0 3 KODE Ö -1 2 KODE 11 5 STUKVUL 

Q —-i 1 KODE 0 O0 1 KODE 0 0 £ KODE 0 0 3 KODE 11 & STUKVUL 

0 1 1 KODE 0 O0 t KODE 0 0 2 KODE 0 0 3 KODE it 7 STUKVUL 

‚ GRENS { 0 X Y === yv vlag ( vlag =Ì als niet okee ) 

BDUP ; Óf IF DDROP 1+ ELSE DUP AY £ IF OVER 4X £ IF RR B@ 

IF 1+ THEN ELSE DDROP {+ THEN ELSE DDROP t+ THEN THEN : 

: LEEG ( === 4 F Ö VV B@ l+ AX 0 DO AY O0 DO J I RR DDUP 
BE = IF C SWAP B! ELSE DROP THEN LOOP LOOP DROP : 


‚ TEST AB 0 DO F 1 DOVER ROT S5 @ RAFEL 
ROT DROP SWAP 4 + SWAP 5 + AY SWAP — RR B! LOOP ki as Js ea ek Fran lg 
DDROP F 4 AY 5 —- RRB! : 
: TEST ( stuk === )ÂQ 0 DO DUP 1 DDUP -2 ’ F ' TEST TPLOT 
0 … F ! TEST LOOP DROP -1 ’ F ! 


# 20 
{ polyanimo programma 10, hoofdprogramma ) 
‘ STUKTEBT ( === } F i+ ’ F ! A5 0 DO IFO VVB! 0 0 
BEGIN DUP F £ WHILE DUF 0 VV B@ F 0 VV B& = 
IF SWAP t+ SWAP THEN 1+ REPEAT DROP O= IF AO 0 DO 
ITF 1UYVE! F 0 VV B&F 1 VV Be 1 55 @ IF 
0 AB 0 DO F 0 VV B@ F Ì VV B®e I 55 @ RAFEL ROT DROP 
Y + _ AY + SWAP X + OVER 1 1 HH B! DUP I 0 HH B! 
SWAP GRENS DUP IF LEAVE THEN LOOP O= IF 
F {+ A5 = IF ." OPLOSSING " T 1+ DUP ’ T ! . CR TPLOT 
ELSE F 0 VV B@ 1+ DUP X Y _ AY + RR B! AB 0 DO 
DUP 1 Ô HH BE 1 1 HH B@ RR B! LOOP DROP X Y 
Y X BEGIN BEGIN DDUP SWAP _ AY + RR B®@ O= IF ’ X ! 
‘ Y ! MYSELF AY AX THEN 1+ DUP AX £ O= END 
DROP 1+ 0 OVER AY << O= END DDROP LEEG ’ Y ! ’ X ! 
THEN THEN ELSE LEAVE THEN LOOP THEN LOOP PF 1- * F !: 
‘ POLYONIMO O0 * T ! 0! X! 0 Y ! -1t ‘ F ! STUKTEST : &— HOO FP PROGRAMMA 
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